You can name me mad, but I tried to patch the UBB 6.2.1 with the Mega-Moderator-Hack.
I found everything and patched it. Besides only one thing
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif">Open ubb_lib.cgi
Find:
sub is_admin_or_mod {
local ($f, @profile, $Moderator, @mods, $mod_name, $mod_num, $mod_match, $is_one, @mod_profile);
</font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">I can´t find. But I found this part which should be the right one. How must it be patched?
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif">sub is_admin_or_mod {
my ($Moderator, $mod_match, $is_one);
my ($f, @profile) = @_;
chomp($profile[8]);
chomp($profile[0]);
if ($profile[8] eq 'Administrator') {
$is_one = 'true';
} elsif ($profile[8] eq 'Moderator') {
if ($f ne 'ALL') {
# check to see if user is moderator of particular forum
# check if moderator
&RequireVars("$vars_config{VariablesPath}/vars_mods.cgi");
$Moderator = ${ "Forum" . "$f" . "Moderator" };
#split up Mod var
my @mods = split (/||^||/, $Moderator);
my @mod_profile = ();
foreach (@mods) {
chomp($_);
if (-s "$vars_config{MembersPath}/$_.cgi") {
@mod_profile = &OpenProfile($_);
chomp($mod_profile[0]);
if ($mod_profile[0] eq $profile[0]) {
$mod_match = 'true';
} # end if
} # end if
} # end foreach
if ($mod_match ne 'true') {
$is_one = 'false';
} else {
$is_one = 'true';
} # end if
} else {
# this is just to see if user is a mod of any forum
$is_one = 'true';
} # end if
} else {
$is_one = 'false';
} # end if
return ($is_one);
} # is_admin_or_mod</font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">Thanx a lot
Locutus of Borg